SCREENS 


Effetti ottici 

UNA SELEZIONI DI BREVI PROGRAMMI IN LINGUAGGIO MACCHINA PI R 
PRODURR! SUL VOSTRO TV UNA STRIE DI SPETTACOLARI EFFETTI OTTICI 


T inti sanno che le istruzioni date ad un computer 
in linguaggio macchina vengono eseguite molto 
più rapidamente di quelle in BASIC. Uno dei casi in 
cui questo latto torna particolarmente utile è 
quando si deve agire sullo schermo, per modificarne 
rapidamente V aspetto, o anche semplicemente per 
crearvi qualche gradevole effetto ottico, ìn maniera 
pressoché istantanea. 

Nel seguito fornirò una breve selezione di pro¬ 
grammai in BASIC che contengono direttamente 
nel loro interno, sotto forma dì DATA, ì codici del 
linguaggio macchina ed il relativo caricatore (per 
semplicità, si è usata come zona dì memoria per il 
hm. il «printer buffer», che occupa 256 byte a partire 
dalla celia 23296: ciò può tornare comodo quando il 
codice in l.ni, non occupa più di qualche centinaio di 


configurazione di «pixel» o pumi dell’immagi ne, per 
ogni linea dello schermo. Ogni gruppo di 8 pixel 
successivi è codificato come l bvte. memorizzato In 
una delle 6144 celle che cosUniscono la memoria 
dello schermo, che iniziano dal n" 16384 (4QQ0H), Se 
ti singolo byte (che possiamo leggere come numero 
decimale mediante un PEEK in una delle celle 
accennate) viene interpretato, nella sua versione in 
binario, come serie di pixel color IKK o PAPER ifad 
es. neri o bianchi) per ogni l oO, abbiamo la decodi* 
I ìca di un tratto di una linea dello schermo. Per fare 
un esempio: eseguendo il comando diretto POKE 
16384, 170 (4- TNTERh si vedranno comparire il 
alto a sinistra dello schermo 4 puntini neri interval¬ 
lati: infatti il decimale 170 ha come corrisponderne 
binano IO IO 10 IO. Lo schermo intero (incluse le due 


STRIPES 


5 BORDEft 7: INK 
H P E P 7 - i : C L 5 

10 LET x 5i0 LET u 
5 LET LET *3 

= 0 LET y 1=0 LET ci 
25 O LET y 4 = - 1 75 
20 PLOT a , “4 ; INK 
l,XÌ,yl ORfiU OUER 
0UÈR 1 ; x 3,4 3 : DPhU 
30 LET x=x+2: LET 
l=x 1*4 : LET x 3=>:3 + 4 
LET yl=yi i- 4 IF u 

TP 20 

35 LET iai+lì IF 


0; LET 


1 : P 


=0 LET XI=25 
= *255 LET xi 
2=175: LET u 


w 


% : DPhU ÙUER 
1 : x2 , y 2: DRRU 
u'JER LX4 y y4 
y =y+2 : _ LET X 
LET y2=y2-4 
-175 THEN GO 

i =6 THEN STOP 


40 GO Tu IO 


byte e non si prevede fuso della stampante), per 
ottenere una serie di semplici e talvolta spettacolari 
effetti ottici, Non sto ad illustrarne nei dettagli il 
funzionamento, comunque ritengo utile un breve 
accenno alle due aree di memoria dello S peci rum 
destinate alla gestione dello schermo («display file») 
e degli attributi («attributo file»}. 

Lo schermo è sempre gestito, per così dire, in «alta 
risoluzione»: ossia ogni carattere o segno che viene 
visualizzato è costituito in realtà da una opportuna 


OPSCREEN 


15 BGRDER 1 

20 DhTh 1,0/3,17,0,o3>33,0,0,2 
37,175,201 

25 FuR i=0 TO 11 PERO a: PQ KE 
i-h232Q6 ( , a NEXT * 


30 p p i nT ni, “Prerni un tasto": 

pruse 1000 

31 LET ts0 LET S=0 

32 IF t>=256 THEN LET X =1-256+ 
InT i. t/256) : LET £=£ + ! 

34 POKE 23303, t. ■ POKE 23 304 , £ 
40 RhNDGMIZE U5R 23296 
42 LET GO TO 32 


righe «basse» dove compaiono ì messaggi del com* 
puter e gli IN.1M IT) è costituito da 192 linee, ciasoti 
dì 256 pixel ( 8X32, ossia codificata da 32 byts), 14 

corrispondenza fra celle di memoria (della zona 
16384-22527> e linee dello schermo non è peri 
lineare: la zona di memoria è ripartita in 3 blocchi 
(2048 byte ciascuna ), corrispondenti a un terzo del!» 
schermo ciascuno; ma la corrispondenza aTinkind 
dei blocchi con le varie linee c complicala dal fallai 
che la «scansione» di ogni blocco prevede primati 
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linea I. poi la 9, e così via saltando 8, sino alla 57; poi 
ss riprende dalla linea 2, sino alla 58, si torna alla 3, 
sino alla 59... l'ino a raggiungere la 64,ma line del 1 
blocco. Le successive 2048 celle di memoria corri¬ 
spondono al 2' blocco e secondo terzo dello 
schermo, dì e viene scandito con la stessa regola del 
1 ed infine un 3° blocco di memoria corrisponde al 
terzo inferiore dello schermo. 

Nel caso degli attributi, invece, lo Spectrum si 
comporta «in bassa risoluzione», ossia le caratteri¬ 
stiche iti INK, PAPER ed eventuali FLASH c 
BRIGHI sono «attribuite» ad un intero gruppo di 
8XS — 64 pixel che occupano So spazio di 1 «carat¬ 
tere». La memoria per gli attributi inizia dalla cella 
22528 (immediatamente dopo il «display file») ed è 
lunga 768 (= 32X24) byte. Decodificando in binario 


IL LINGUAGGIO MACCHINA 


ad 8 bit il numero decimale che e contenuto in cia¬ 
scuna di queste celle si può leggere lo stato degli 
attributi di una particolare areola (individuata da 
«riga» e «colonna») dello schermo: 
il l 15 bit da sinistra FLASH ON se = 1, FL ASH OFF 
se =0. 

il T bit da sinistra indica BRIGH I ON se =1, 
BRIGHT OFF se =0. 

il 3 ,4 1 e 5" bit vanno letti come numero binario: il 
corrispondente decimale è il colore di PAPER 
((K-7), 

il ó\ 7 L cd 8 bit vanno analogamente letti come 
numero binario: il corrispondente decimale è il 
colore INK ((H-7), 

Questa volta l'ordinamento successivo dei byte 
deir«attribute file» corrisponde logicamente alla 





STRIPES 


LD BC, 6144 


LD <HL), D 

LD HL, 16384 


LD DE, 16384 


INC HL 

LD BC, 6144 


LD HL, ti 


LD A, 7 

LD A, O 


LDIR 


ADD A, D 

CP A, (111,) 


RET 


LD D. A 

JR NZ, 2 




DJNZ 248 (= -8) 

LD<HL), 170 


PATTERN 


KET 

INC HL 


LD B, 0 



DEC BC 


LD D. U 


FLASH 

CP lì 


LD HL. 22528 


LD C. 255 

JH NZ, 246 (- -10» 


LD (HL), D 


LD B. 29 

CP c 


INC HL 


LD HL, 23296 

JR NZ, 243 ( = -13) 


LD A. 7 


LD A, 239 

RLT 


ADD A, D 


LD (HL), C 



LD D, A 


OUT (O), A 

OPSCREEN 


DJNZ 248 (= -8) 


CP 43 

je opsliow Ì A p,) 


LD HL, 22784 


DFX A 

LD BC, 768 


LD (HL), D 


JR NZ, 30009 

LD DE, 22528 


INC HL 


DEC B 

LD HL, 0 


LD A, 7 


LD A, B 

LD1R 


ADD A. D 


JP NZ, 30007 

RET 


LD D, A 


DEC C 



DJNZ 248 <= -8) 


JP NZ, 30002 

ORSI IOW (| fl parte) 


LD HL, 23040 


RF.T 
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OPSHOW 


10 BORDAR 1 

20 DATh 1^0,24,17,13,64,33,0,0, 
£37,176,201 

25 DhT h 1,0,3.17,0,63,33,0,0.2 
37,176.201 

Ì0 FOR 1—0 TQ 23: REhD x: POKE 
23296 4 1 ,X : NEXT i 

35 PRINT hT 4 .,0. "ù-an ì show Pro 
seguì sino a quando non si in ter 
viene con un tasto"; hT 10 , 10 ."5H 
gu n.c* i" ''“Per partire premi u 
n tasto" "Per fermare, p remi bre 
hK" "Per passare atto show se 90 
ente, premi un -tasto qualsiasi" 

33 pr HIT ai. ,r p r e « I un tasto": 
PAUSE a 

4.0 FùR 1=1 Tu 32 

41 CLS : LET t=0 : LET S=60 

42 IF t >=256 THEN LET t=t-2S6* 
INT ( t z256> : LET S =s 4 1 

4 3 POKE 2-3303 . t POKE 23304 . s 
PùhE 23315,t POKE 23316, S-i: fi 
ANDÙMIZE USR 23296 


44 RANDONIZE USR 23306 

45 IF XNKEY$ = " “ TNEN LET t = t+i 
<30 TQ 42 

46 PAUSE 50 

46 IF INKEYS = " " THEN PRINT al 

."Per riprendere, premi un tasto 

PAUSE 0: PAUSE 25 <30 TO 45 

55 CLS : IF 1 <32 THEN PRINT AT 
10,10 : " SHOtJ N.O " i i 4 1 : PAUSE 10 

0 

60 NEXT 1 


successione delle righe e delle colonne dello 
schermo; cosi p.cs. la cella 23000, che occupa il posto 
(23000-22528) — 472 della zona di memoria degli 
attribuii dopo il 1", contiene gli attributi validi per la 
14.a riga (con la solita convenzione che la prima è la 
riga 0), 24.a colonna (sempre con prima colonna = 
0); ini'alii 472 - 14X32 + 24. Provale POKE 23000, 
213 e vedetene l’effetto. 


Passiamo ora ai programmi. Il primo, «STRi- 
PES», agisce essenzialmente sul «display file». Ogni 
byte eguale a 0 di questo file (tutti sono 0 dopo un 


FLASH 


10 rem Pattern 
15 SORGER 1 

£0 DhT A 6*8,22,0,33.0.88,114.3 
5,62,7,130,37,16,245 ,* 33,0,39 ,114 
32 DhT P 35 „ 62 , 7 ,130,37,16,246 < 
33,0i90,114 } 35 , 62.7,130.87,16,24 
8 201 

25 POP is0 TO 37: REhO a: POKE 
i+23296 nè: NEXT ì 
30 PRINT ri.;hT 0 , 0 ,"Premi un t 
aslO’ H - PRU5E 1000 

32 LET r.sINT tRND*32*l>: POKE 
2 3306 , n : POKE 23317,(1: POKE 2 332 
8 t ri 

40 RRNDOMIZE USR 23296 
42 GO TO 3Q 


CLS) viene sostituito da un byte di valore randelli: 
corrispondentemente si creano sullo schermo delie 
strutture verticali di posizione e spessore tandem 
Lo schema viene variato ad ogni pressione di tasto, 
Da notare che. modificando il programma con qual¬ 
che PRINT (subito dopo il CLS e prima del RAN* 
DOMIZE USR) di una stringa od altri caratteri, 
questi non vengono modificati, e le striaiure si 
creano tutto attorno ad essi. Tutti gli altri pro¬ 
grammi agiscono invece sulla memoria degli attri¬ 
buti, e gli effetti sono senz'altro piu spettacolari. 
Cominciamo con «OPSCREEN», in cui si ha lo 
«scroll» laterale di uno schermo a «quadretti» 
variamente colorato e in parte lampeggiante, creato 
isiantane mante colla pressione dTin tasto. Per «fer¬ 
mare- il quadro, usare BREAK (CAPS SHIFT+ 
SPACE), c CONTINUE per riprendere. Con alcune 
semplici varianti si ottengono effetti diversi: si provi 
a sostituire il valore l di t—t+l di riga 42 con 32. 
oppure con 31, od ancora con altri numeri inferiori a 
256 (varia ad es, la direzione dello serali). 

«OPSHOW» è simile, ma ancora più suggestivo. 
Si possono avere uno dopo l'altro «spettacolini non¬ 
stop- diversi, che iniziano ad una velocità ragione¬ 
vole ma poi sconfinano nell'assurdo.^ Quando si è 
stanchi, basta la pressione d’un tasto per fermare, o 
per passare allo «show» seguente. Una variante può 
essere nella soppressione di uno dei due BANDO- 
M1ZE USR,,. alle righe 43 o 44 (non tutti e due 
assieme.,.) 


PATTERN 

IO REM Bcreeri f Lash 
50 CLEAR 39999ì FOR i=50000 Tu 
30026: READ à POKE i,à: NEXT i 
30 DATA 14.2S5,6,29.33,0 91,B2 
,239,113,0,211,254,43,61,194,57. 
117,5.120,194,65,117,13,121,194, 
50.117,201 

35 PRINT HT 10.0;" 30 secondi 
di Spectrus show!!!": prIimT si ; " 
Premi un tasto)". PAUSE 1O0O 
40 RANDGMIZE USR 30000 


«PATTERN», già gradevole di perse — anche qui 
lo «spettacolo» cambia ad ogni pressione d*un tasto 

— può essere ulteriormente variato in due modi: 

— inserendo altri valori minori di 256 al posto dei 32 
in INT (RND*32) di riga 32 

— variando i tre POKE della stessa riga: invece di 
pokare sempre il valore di n, si provi a sostituire 
n—1 od n—2 o simili nel 2° e/o 3 L ' POKE. 

Per Einire, uno «show» otiico/sonoro lutto spe¬ 
ciale del nostro ZX Spectrum; caricate «FLASH» e 
date il RUN: per trenta secondi fa tutto da solo! 
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